home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr10 / rmast40.zip / DEMO1.PAS < prev    next >
Pascal/Delphi Source File  |  1994-01-12  |  876b  |  38 lines
  1. (* ************************************************************ *)
  2. (* Demo1.pas For Turbo Pascal                                   *)
  3. (*                                                              *)
  4. (* TGCAR.XGF was created by saving the image as TP/TC (Binary)  *)
  5. (* from Raster Master.                                          *)
  6. (* ************************************************************ *)
  7.  
  8. Program Demo1;
  9.  Uses Crt,Dos,Graph;
  10.  
  11. Var
  12.  Gd, Gm : Integer;
  13.  Img    : Pointer;
  14.  Size   : Word;
  15.  F      : File;
  16.  
  17. Begin
  18.  Assign(F,'TGCAR.XGF');
  19.  Reset(F,1);
  20.  Size:=FileSize(F);
  21.  GetMem(Img,Size);
  22.  BlockRead(F,Img^,Size);
  23.  Close(F);
  24.  
  25.  
  26.  Gd:=VGA;
  27.  Gm:=VGALo;
  28.  InitGraph(Gd,Gm,'c:\tp');
  29.  
  30.  SetFillStyle(SolidFill,Blue);
  31.  Bar(0,0,GetMaxX,GetMaxY);
  32.  
  33.  PutImage(0,0,Img^,NormalPut);
  34.  Repeat Until KeyPressed;
  35.  FreeMem(Img,Size);
  36.  CloseGraph;
  37. end.
  38.